oo::class create PopupReplaceDialog {
    superclass PopupDialog
    variable Path PopUpFlag OKVal CancelVal ifDestroy

    method createPopup {msg} {
        next $msg

        frame $Path.replace
        label $Path.replace.lb1 -text Replace
        ttk::entry $Path.replace.et1
        label $Path.replace.lb2 -text With
        ttk::entry $Path.replace.et2

        grid $Path.replace.lb1 $Path.replace.et1 -sticky news -pady 3 -padx 1
        grid $Path.replace.lb2 $Path.replace.et2 -sticky news -pady 3 -padx 1
        pack $Path.replace -side top

        focus $Path.replace.et1
    }

    method turnOnFlag {} {
        set PopUpFlag [list [$Path.replace.et1 get] \
                           [$Path.replace.et2 get]]
    }

    method turnOffFlag {} {
        set PopUpFlag {}
    }
}